home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4182 / stos_bas.tut / t5l2.asc < prev    next >
Text File  |  1987-04-21  |  291b  |  17 lines
  1. 10 rem screen banks
  2. 20 rem
  3. 30 if mode<>0 then mode 0
  4. 40 cls back : cls physic
  5. 50 DRV=drive : drive=0
  6. 60 dir$="\stos\"
  7. 70 reserve as screen 6
  8. 80 load "pic.pi1",6
  9. 90 dir$="A:\"
  10. 100 appear 6
  11. 110 bcopy 6 to 7
  12. 120 cls 6
  13. 130 appear 6
  14. 140 get palette (6)
  15. 150 appear 7
  16. 160 drive=DRV
  17.